<%
Sub tslt_useridentity12_error_Exit()
    If session("tslt_useridentity")<>1 and session("tslt_useridentity")<>2 Then 
	    response.redirect ("../error.asp?info=ûвȨޣѾʱµ¼")
        Response.End
    End If 
End sub

Sub tslt_useridentity12_error_end()
    If session("tslt_useridentity")<>1 And session("tslt_useridentity")<>2 Then 
       response.write ("ûвȨޣѾʱµ¼")
       response.End 
    End If 
End Sub 

Sub tslt_useridentity1_error_end()
    If session("tslt_useridentity")<>1 Then 
       response.write ("ûвȨޣѾʱµ¼")
       response.End 
    End If 
End Sub 

Sub DoDelFile(sPathFile)
    On Error Resume Next
    Dim oFSO
    Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
    oFSO.DeleteFile(Server.MapPath(sPathFile))
    et oFSO = Nothing
End Sub

Sub setupC()
    Dim rs
    Dim sql
    sql="select id from community"
    set rs=conn.execute(sql)
       do while not rs.eof
	      If isAllAAH(rs("id")) Then
	          conn.execute("update community set allAAH=true where id="&rs("id"))
		  Else
		      conn.execute("update community set allAAH=false where id="&rs("id"))
		  End If
	      If isAutSelBoard(rs("id")) Then
	          conn.execute("update community set autSelBoard=true where id="&rs("id"))
		  Else
		      conn.execute("update community set autSelBoard=false where id="&rs("id"))
		  End If
		  If isCBCipher(rs("id")) Then
		      conn.execute("update community set allAAH=false,autSelBoard=false where id="&rs("id"))
		  End If 
		  If isAllHiddBoard(rs("id")) Then
		      conn.execute("update community set AllHiddBoard=true where id="&rs("id"))
		  Else 
		      conn.execute("update community set AllHiddBoard=false where id="&rs("id"))
		  End If 
		  If isAllAutSelAndHidd(rs("id")) Then
		      conn.execute("update community set AllAutSelAndHidd=true where id="&rs("id"))
		  Else 
		      conn.execute("update community set AllAutSelAndHidd=false where id="&rs("id"))
		  End If 
		  rs.movenext
        loop 
    rs.close
    Set rs =Nothing
End Sub 

Sub infoDivShow(aaa)
    Response.write"<div style='position:absolute;left:280;top:280;'><table border=0 cellpadding=5 cellspacing=5 style='BORDER-LEFT:#dcdcdc 0PX SOLID;BORDER-RIGHT:#dcdcdc 0PX SOLID;BORDER-TOP:#dcdcdc 0PX SOLID;BORDER-BOTTOM:#dcdcdc 0PX SOLID'><tr><td bgcolor=red><table border=0 cellpadding='0' cellspacing='0' style='BORDER-LEFT:#dcdcdc 1PX SOLID;BORDER-RIGHT:#dcdcdc 1PX SOLID;BORDER-TOP:#dcdcdc 1PX SOLID;BORDER-BOTTOM:#dcdcdc 1PX SOLID'><tr><td bgcolor=dodgerblue><font size=4 color=white><b>" &aaa& "</b></font></td></tr></table></td></tr></table></div>"
End Sub


%>